-- card: 20367 from stack: in
-- bmap block id: 23306
-- flags: 4000
-- background id: 8902
-- name: booze
----- HyperTalk script -----
on opencard
  put "This is a half-empty bottle of booze.  This gives you some idea"& " as to the reason why there is no one guarding the bunker at the"& " moment." into field "info"
  pass opencard
end opencard



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=161 top=302 right=323 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  global filter
  if filter is "yes" then
    beep
    exit mouseup
  end if
  global donteat
  get bkgnd field "do what"
  if the number of words in it > 1 then
    beep 2
    oneword
    exit mouseup
  end if
  if it contains "smell" or it contains "sniff" then
    put "Yep, smells like booze all right." into field "info"
    exit mouseup
  end if
  if it contains "examine" or it contains "look" then
    send "opencard" to this card
    exit mouseUp
  end if
  if it contains "eat" or it contains "consume" or it contains "drink" then
    global booz
    if booz is "empty" then
      put "The bottle is empty." into field "info"
      exit mouseup
    end if
    put "You take a long swig of the booze.  Before you know it, "& "you've drunk the whole bottle." into field "info"
    global booz
    put "empty" into booz
    exit mouseup
  end if
  if it is "" then
    put "Speak up.  I can't hear you." into field "info"
    exit mouseup
  end if
  global boozhide
  if it contains "get" or it contains "take" then
    global inventory
    if inventory contains "booze" then
      put "You already have it." into field "info"
      exit mouseup
    else
      put "You pick the bottle up off the ground.Ÿ" into field "info"
      global inventory
      put "Booze"& return after last char of inventory
      global filter
      put "yes" into filter
      global action
      put "get" into action
      exit mouseup
    end if
  end if
  if it contains "drop" then
    global inventory
    if inventory contains "Booze" then
      put "You should save the booze bottle in case it should come"& in handy later on." into field "info"
      exit mouseup
    else put "You can't drop what you don't have." into field "info"
    exit mouseup
  end if
  if it contains "give" or it contains "offer"then
  ask "To whom would you like to give the bottle?"
  if it contains "Drool" or it contains "Guard"or it contains "man" then
    global booz
    if booz is "empty" then
      put "The Drool takes one look at the empty bottle and loses"& " interest. "into field "info"
      exit mouseup
    end if
    global boozer
    put "yes" into boozer
    put "The Drool stops his exercising, takes the bottle, and, "& "with a mischievous little giggle, walks away.Ÿ" into field "info"
    global inventory
    get offset ("Booze",inventory)
    put "" into char it  to 4 +it  of inventory
    global droolhide
    put "yes" into droolhide
    global action
    put "yah" into action
    global filter
    put "yes" into filter
    exit mouseup
  else
    put "The Drool is not interested in the "&it&"." into field "Info"
    exit mouseup
  end if
end if
idunno
end mouseUp

on cont
  global filter
  if filter is "yes" then
    global action
    if action is "get" then
      global filter
      put "" into filter
      global boozhide
      put "yes" into boozhide
      go to card "bunker"
    end if
    if action is "yah" then
      global filter
      put "" into filter
      go to card "rec room2"
    end if
  end if
end cont




-- part contents for background part 2
----- text -----
What would you like to do with the booze?

-- part contents for background part 7
----- text -----
Booze